home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / utilities / _graphics / graphics / _jpeg / script < prev    next >
Encoding:
Text File  |  1992-04-18  |  1.3 KB  |  61 lines
  1. ::appl application
  2.  { 
  3.   #create
  4.      %create :icon_bar  
  5.  
  6.   }
  7. ::icon_bar icon_bar !Jpeg
  8.   {
  9.   #create
  10.      %create :icon_menu
  11.      %create :opt
  12.      %create :prog_info
  13.  
  14.   #select
  15.      %display :opt
  16.  
  17.   #menu
  18.      %display :icon_menu
  19.        
  20.   #load.695
  21.      %saveas 600 %leaf %stdin
  22.  
  23.   #load.69e
  24.      %saveas 600 %leaf %stdin
  25.  
  26.   #load.c85
  27.      %saveas %option :opt 5 69e %option :opt 2 695 %leaf %stdin
  28.  
  29.   #save.695 
  30.      | work to scrap file incase source and target are the same  
  31.      %task /<jpeg$dir>.cjpeg %option :opt 26 -o %stdin  > <wimp$scrap>
  32.      %task copy <wimp$scrap> %stdout QF~C~V
  33.      %os settype %stdout 600
  34.  
  35.   #save.69e
  36.      | work to scrap file incase source and target are the same
  37.      %task /<jpeg$dir>.cjpeg  %option :opt 26 -o %stdin  > <wimp$scrap>
  38.      %task copy <wimp$scrap> %stdout QF~C~V
  39.      %os settype %stdout 600
  40.  
  41.   #save.c85
  42.      | work to scrap file incase source and target are the same
  43.      %task /<jpeg$dir>.djpeg %option :opt 2 -G %option :opt 15 -b %option :opt 16 -g %option :opt 18 -D %option :opt 23 -2 %stdin > <wimp$scrap> 
  44.      %task copy <wimp$scrap> %stdout QF~C~V
  45.      %os settype %stdout %option :opt 5 69e %option :opt 2 695
  46.   }
  47. ::opt window Options
  48.   {  
  49.   }
  50.  
  51. ::prog_info window ProgInfo
  52.   {  
  53.   }
  54. ::icon_menu menu JPEG
  55.   {
  56.   >Info :prog_info
  57.  
  58.   /Quit
  59.       %quit
  60.   }
  61.